#pragma once
#include <iostream>
#include <cstring>
#include <functional>
#include <unordered_map>
#include <pthread.h>
#include <unistd.h>
#include <signal.h>
#include <sys/wait.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>

#include "netaddr.hpp"
#include "Comm.hpp"
#include "ThreadPool.hpp"
#include "Log.hpp"
using namespace std;

const int default_backlog = 5;

using task_t = function<void()>;
using clientfunc_t = function<string(const string &)>;

// class Server;

// class ClientData
// {
// public:
//     ClientData(int sockfd, Server *ptr, netaddr addr) : _sockfd(sockfd), obj(ptr), _addr(addr)
//     {
//     }

//     ~ClientData()
//     {
//     }

// public:
//     int _sockfd;
//     Server *obj;
//     netaddr _addr;
// };

class Server
{
private:
    // static void *ClientThread(void *args)
    // {
    //     pthread_detach(pthread_self());
    //     ClientData *server = static_cast<ClientData *>(args);
    //     server->obj->Service(server->_sockfd, server->_addr);

    //     close(server->_sockfd);
    //     delete server;
    // }

    // void Service(int sockfd, netaddr &client)
    // {
    //     char buffer[1024];
    //     while (true)
    //     {
    //         ssize_t n = read(sockfd, buffer, sizeof(buffer) - 1);
    //         if (n < 0)
    //         {
    //             cout << errno << ": " << strerror(errno) << endl;
    //             exit(Read_Err);
    //         }
    //         else if (n == 0)
    //         {
    //             cout << "client quit..." << endl;
    //             break;
    //         }
    //         else
    //         {
    //             buffer[n] = 0;
    //             // cout << "client say# " << buffer << endl;
    //             cout << client.SockInfo() << "# " << buffer << endl;
    //             n = write(sockfd, buffer, strlen(buffer));
    //             if (n < 0)
    //             {
    //                 cout << errno << ": " << strerror(errno) << endl;
    //                 exit(Write_Err);
    //             }
    //         }
    //     }

    //     close(sockfd);
    // }

    void Service(int sockfd, netaddr &client)
    {
        SendOpList(sockfd);                    // 输出业务逻辑列表
        string op = ReceiveOp(sockfd, client); // 接收用户操作
        if (op == "")
            return;
        LOG(Debug, "The server received op: %s from client: %s\n", CSTR(op), CSTR(client.SockInfo()));
        string message = "null";
        if (op != "ping" && _op.count(op))
            message = ReceiveMsg(sockfd, client); // 如果不是ping操作的话，需要获取用户输入的内容

        if (message == "")
            return;

        string send = Handle(op, message); // 根据操作和内容获取任务结果
        LOG(Debug, "Server returns result: %s to client: %s\n", CSTR(send), CSTR(client.SockInfo()));
        Route(sockfd, send); // 将结果发回给客户端

        close(sockfd);
    }

    string ReceiveOp(int sockfd, netaddr &client)
    {
        char choice[128];
        ssize_t n = read(sockfd, choice, sizeof(choice) - 1);
        if (n < 0)
        {
            cout << errno << ": " << strerror(errno) << endl;
            return "";
        }
        else if (n == 0)
        {
            cout << "client quit..." << endl;
            return "";
        }
        else
        {
            choice[n] = 0;
            return choice;
        }
    }

    string ReceiveMsg(int sockfd, netaddr &client)
    {
        char message[1024];
        ssize_t n = read(sockfd, message, sizeof(message) - 1);
        if (n < 0)
        {
            cout << errno << ": " << strerror(errno) << endl;
            return "";
        }
        else if (n == 0)
        {
            cout << "client quit..." << endl;
            return "";
        }
        else
        {
            message[n] = 0;
            return message;
        }
    }

    string Handle(const string &op, const string &message)
    {
        if (_op.count(op))
        {
            return _op[op](message);
        }
        else
            return "Unknown";
    }

    void Route(int sockfd, const string &send)
    {
        write(sockfd, send.c_str(), send.size());
    }

    void SendOpList(int sockfd)
    {
        string oplist = "|";
        for (auto &e : _op)
        {
            oplist += e.first;
            oplist += "|";
        }

        Route(sockfd, oplist);
    }

public:
    Server(uint16_t port) : _port(port)
    {
    }

    void Register(string op, clientfunc_t cf) // 服务端main函数注册服务
    {
        _op[op] = cf;
    }

    void Init()
    {
        _listenfd = socket(AF_INET, SOCK_STREAM, 0);
        if (_listenfd < 0)
        {
            cout << errno << ": " << strerror(errno) << endl;
            exit(Sock_Err);
        }
        cout << "Listen Socketfd created successfully : " << _listenfd << endl;

        int opt = 1;
        setsockopt(_listenfd, SOL_SOCKET, SO_REUSEADDR | SO_REUSEPORT, &opt, sizeof(opt));

        struct sockaddr_in addr;
        memset(&addr, 0, sizeof(addr));
        addr.sin_addr.s_addr = INADDR_ANY;
        addr.sin_port = htons(_port);
        addr.sin_family = AF_INET;

        int n = bind(_listenfd, CV(addr), sizeof(addr));
        if (n < 0)
        {
            cout << errno << ": " << strerror(errno) << endl;
            exit(Bind_Err);
        }
        cout << "Bind successfully" << endl;

        n = listen(_listenfd, default_backlog);
        if (n < 0)
        {
            cout << errno << ": " << strerror(errno) << endl;
            exit(Listen_Err);
        }
        cout << "Listen successfully" << endl;

        tp.Start();
    }

    void Start()
    {
        // signal(SIGCHLD, SIG_IGN);
        while (true)
        {
            struct sockaddr_in peer;
            socklen_t len = sizeof(peer);
            int sockfd = accept(_listenfd, CV(peer), &len);
            if (sockfd < 0)
            {
                cout << errno << ": " << strerror(errno) << endl;
                exit(Sock_Err);
            }
            cout << "Socketfd created successfully : " << sockfd << endl;

            netaddr addr(peer);
            task_t t = bind(&Server::Service, this, sockfd, addr);
            tp.Push(t);
            // pthread_t tid;
            // netaddr addr(peer);
            // ClientData* cd = new ClientData(sockfd, this, addr);
            // pthread_create(&tid, nullptr, ClientThread, cd);

            // 开始进行服务
            // netaddr addr(peer);
            // Service(sockfd);
            // close(sockfd);

            // int id = fork();
            // if (id < 0)
            // {
            //     exit(Fork_Err);
            // }
            // else if (id == 0)
            // {
            //     // child process
            //     if(fork() > 0) exit(0);

            //     close(_listenfd);
            //     Service(sockfd);
            //     close(sockfd);

            //     exit(0);
            // }
            // else
            // {
            //     // father process

            //     close(sockfd);
            //     int wid = waitpid(id, nullptr, 0);
            //     if (wid > 0)
            //     {
            //     }
            // }

            // netaddr addr(peer);
            // int id = fork();
            // if (id < 0)
            // {
            //     exit(Fork_Err);
            // }
            // else if (id == 0)
            // {
            //     // child process

            //     close(_listenfd);
            //     Service(sockfd, addr);
            //     close(sockfd);

            //     exit(0);
            // }
            // else
            // {
            //     // father process

            //     close(sockfd);
            //     // int wid = waitpid(id, nullptr, 0);
            //     // if (wid > 0)
            //     // {
            //     // }
            // }
        }
    }

    ~Server()
    {
    }

private:
    uint16_t _port;
    int _listenfd;
    unordered_map<string, clientfunc_t> _op; // 存储服务

    ThreadPool<task_t> tp;
};